﻿Imports Microsoft.DirectX.Direct3D
Imports Microsoft.DirectX

Public Class Text3D : Inherits Shape

    Dim Text As String

    Sub New(ByVal Text As String)
        Me.Text = Text
    End Sub

    Public Overrides Sub Create()
        M = Mesh.TextFromFont(Device, New System.Drawing.Font("segoe print", 14), Text, 0.01, 0.1)
    End Sub

End Class
